home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / GNU / TILEFORTH / TILE / TILE~ / !Tile / test / enumerates < prev    next >
Text File  |  1992-04-19  |  693b  |  36 lines
  1. .( Loading Enumerates test...) cr
  2.  
  3. #include <tile$lib>.enumerates
  4.  
  5. enumerates
  6.  
  7. .( 1: Define a set of small numbers as enumerates and check their values) cr
  8.  
  9. enum.type SMALL-NUMBERS ( -- )
  10.   enum ZERO ( -- enum)
  11.   enum ONE ( -- enum)
  12.   enum TWO ( -- enum)
  13.   enum THREE ( -- enum)
  14.   enum FOUR ( -- enum)
  15.   enum FIVE ( -- enum)
  16. enum.end
  17.   
  18. ZERO . ONE . TWO . THREE . FOUR . FIVE . cr
  19.  
  20. 5 >enum SMALL-NUMBERS .name cr
  21.  
  22.  
  23. .( 2: Define a set of operation code and give the values for each enumerate) cr
  24.  
  25. enum.type OP-CODES ( -- )
  26.   enum LOAD ( -- enum)
  27.   enum STORE ( -- enum)
  28.   enum ADD ( -- enum)
  29.   enum SUB ( -- enum)
  30.   enum MUL ( -- enum)
  31. enum.end
  32.  
  33. LOAD . STORE . ADD . SUB . MUL . cr
  34.  
  35. forth only
  36.